home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Sound / Utilities / K1 Librarian 1.0.0 / Sample Scripts / 19 Send All Dump Request < prev    next >
Text File  |  1994-05-30  |  529b  |  20 lines

  1. tell application "K1 Librarian"
  2.     --    activate
  3.     set ch to 14 -- set MIDI channel (1 - 16)
  4.     set kind to 0 -- set single/multi
  5.     -- 0 for single
  6.     -- 1 for multi    
  7.     set ie to 1 -- set I,i,E,e
  8.     -- 0 for I
  9.     -- 1 for i
  10.     -- 2 for E
  11.     -- 3 for e
  12.     if (ie = 0) then set temp to 0
  13.     if (ie = 1) then set temp to 32
  14.     if (ie = 2) then set temp to 4096
  15.     if (ie = 3) then set temp to 32 + 4096
  16.     if (kind = 1) then set temp to temp + 2
  17.     if (kind = 0 and (ie = 1 or ie = 3)) then set temp to temp + 1
  18.     All Dump Request {(ch - 1) * 256 + temp}
  19. end tell
  20.